home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xsegment.t < prev    next >
Text File  |  1990-06-01  |  600b  |  11 lines
  1. (herald xsegment (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XSEGMENT) (CONS 'XSEGMENTP (MAKE-BYTEV 8)))
  3. (DEFINE (XSEGMENT-X1 X) (MREF-16-S (CHK-XSEGMENTP X) 0))
  4. (DEFINE (XSEGMENT-X1! X Y) (SET-MREF-16-S! (CHK-XSEGMENTP X) 0 Y))
  5. (DEFINE (XSEGMENT-Y1 X) (MREF-16-S (CHK-XSEGMENTP X) 2))
  6. (DEFINE (XSEGMENT-Y1! X Y) (SET-MREF-16-S! (CHK-XSEGMENTP X) 2 Y))
  7. (DEFINE (XSEGMENT-X2 X) (MREF-16-S (CHK-XSEGMENTP X) 4))
  8. (DEFINE (XSEGMENT-X2! X Y) (SET-MREF-16-S! (CHK-XSEGMENTP X) 4 Y))
  9. (DEFINE (XSEGMENT-Y2 X) (MREF-16-S (CHK-XSEGMENTP X) 6))
  10. (DEFINE (XSEGMENT-Y2! X Y) (SET-MREF-16-S! (CHK-XSEGMENTP X) 6 Y))
  11.